home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / CIRCLE3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  768 b   |  27 lines
  1. 10  '******************************************
  2. 20  '**          ROTATING CIRCLE             **
  3. 30  '**                                      **
  4. 40  '**  DRAWS A CIRCLE FROM CASSETTE BASIC  **
  5. 50  '******************************************
  6. 60  '
  7. 100  CLS : KEY OFF : SCREEN 2
  8. 110  FOR X = -150 TO 150
  9. 120  Y = (22500 - X*X)^0.5 *0.5
  10. 130  PSET (319+X,100+Y)
  11. 140  PSET (319+X,100-Y)
  12. 150  NEXT
  13. 160  FOR Y = -75 TO 75
  14. 170  X = (5625 - Y*Y)^0.5 * 2
  15. 180  PSET (319+X,100+Y)
  16. 190  PSET (319-X,100+Y)
  17. 200  NEXT
  18. 210  PERCENT = 3.14159 * 2 / 100
  19. 220  FOR B = 0 TO 95 STEP 5
  20. 230  X = COS(PERCENT * B) * 150
  21. 240  Y = SIN(PERCENT * B) * 75
  22. 250  LINE (319,100)-(319+X,100-Y),0
  23. 260  FOR Z = 1 TO 10 : NEXT Z
  24. 270  LINE (319,100)-(319+X,100-Y)
  25. 280  NEXT B
  26. 290  GOTO 220
  27.